Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

    Dim ǹ As PivotTable
    Dim ʵ As PivotField, ʵ As PivotField
    Dim ׸ As PivotItem
    Dim ߼ÿ As Boolean
    
    On Error Resume Next
    
    Application.EnableEvents = False
    
    For Each ʵ In Target.PageFields
        
        ߼ÿ = ʵ.EnableMultiplePageItems
        
        For Each ǹ In ActiveSheet.PivotTables
            
            If ǹ.Name <> Target.Name Then
                
                ǹ.ManualUpdate = True
                
                Set ʵ = ǹ.PivotFields(ʵ.Name)
                        
                With ʵ
                
                    .ClearAllFilters
                    
                    If ߼ÿ = False Then
                        
                        .CurrentPage = ʵ.CurrentPage.Value
                        
                    Else
                            
                        .CurrentPage = "()"
                            
                        For Each ׸ In ʵ.PivotItems
                            
                            .PivotItems(׸.Name).Visible = ׸.Visible
                        
                        Next
                        
                        .EnableMultiplePageItems = ߼ÿ
                    
                    End If
                    
                End With
                
                ǹ.ManualUpdate = False
                
            End If
            
        Next
    
    Next
    
    Application.EnableEvents = True

End Sub
